home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 August
/
1984-08.d64
/
cursor get_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
355b
|
11 lines
10 gosub1102:printa$;:goto10:rem this is the "host" program
1101 goto1109:rem get with cursor blink
1102 xl%=peek(211)
1103 ifxl%>39thenxl%=xl%-40:goto1103
1104 xl%=xl%+peek(214)*40+1024:xc=54272+xl%
1105 pokexc,peek(646):xo%=peek(xl%):xt%=xo%:xq%=128:ifxo%>127thenxq%=-xq%
1106 xt%=xt%+xq%:pokexl%,xt%:xq%=-xq%:forxr=1to60:rem changing 60 changes blink speed
1107 geta$:ifa$<>""thenpokexl%,xo%:return
1108 next xr:goto1106
1109 rem